From 9b54f2680c29949a2fc5ac24150644ff449166bf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 9 May 1993 23:18:30 +0000 Subject: [PATCH] (dabbrev-expand): Delete a search-forward call after the second replace-match. --- lisp/dabbrev.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index 0798b764c2b..db5fcacd077 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el @@ -186,7 +186,9 @@ with the next possible expansion not yet tried." ;; case pattern. (save-excursion (replace-match abbrev t 'literal)) - (search-forward abbrev) +;;; This used to be necessary, but no longer, +;;; because now point is preserved correctly above. +;;; (search-forward abbrev) (replace-match (if do-case (downcase expansion) expansion) (not do-case) 'literal)) -- 2.30.2